www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\my.asp
<!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/Function.asp"-->
<!--#include file="Include/Cls_Class.asp"-->
<!--#include file="Include/header.asp"-->
<%
Dim Default
set Default = New Cls_Default
User_ID = Request.QueryString("User_ID")
if request.QueryString("action") = "Hit" then '顶
Call WoDig.Set_Hit(Request("Src_ID"))
Response.end
end if
if User_ID = "" or IsNumerIC(User_ID)=false then
Response.Redirect("index.asp")
end if
Set Rs = Server.CreateObject("adodb.recordset")
Sql = "Select * from Liangjing_User Where User_ID="&User_ID
Rs.open Sql,conn,1,2
if not Rs.eof then
User_CoolName = Rs("User_CoolName")
User_Name = Rs("User_Name")
if Rs("User_Sex") = true then
User_Sex = "男"
else
User_Sex = "<font color=#ff0000>女</font>"
end if
User_Email = Rs("User_Email")
User_Photo = Rs("User_Photo")
User_Address = Rs("User_Address")
User_Address2 = Rs("User_Address2")
User_Demo = Rs("User_Demo")
User_Photo = Rs("User_Photo")
User_SignInDate = Rs("User_SignInDate")
User_HomeWeb = Rs("User_HomeWeb")
else
Call Wodig.Msgbox2("不存在该用户！",0,"index.asp")
end if
page = Request("page") '分页
order_by = Request("order_by") '排序
if Order_By = "" or isNull(Order_By) or isNumeric(Order_By)=false then
Order_By = "2"
end if
if page = "" then
page = 1
end if
if isNumeric(page)=false then
Response.Redirect("index.asp") '防注入
end if
Dim TextName
Call Default.Get_Search()
Response.Write("</div>"&vbcr)
Response.Write("<div id=""headRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div><div id=""mainWrapper"" class=""clear"">"&vbcr)
Response.Write("<div class=""main"">"&vbcr)
Response.Write("<div class=""navArr""></div>"&vbcr)
Response.Write("<div class=""AL"">"&vbcr)
Response.Write("<div class=""title""><h3>良精微博-随时随地分享身边的新鲜事儿</h3>"&vbcr)
Response.Write("<div class=""orderType"">"&vbcr)
%>
<form name="frm_orderby" method="post">
<div align="right">查看方式：<%=User_CoolName%>
<select name="order_by" onChange="javascript:frm_orderby.submit();">
<% if Session("_WUserID")=trim(User_ID) Then%>
<option value="1" <%
if order_by="1" Then
TextName="全部"
Response.Write(" Selected")
End If
%>>所有</option>
<% end if %>
<option value="2" <%
if order_by="2" Then
TextName=User_CoolName&"发布的"
Response.Write(" Selected")
End If
%>>发布的</option>
<% if Session("_WUserID")=trim(User_ID) then%>
<option value="3" <%
if order_by="3" Then
TextName="未发布的"
Response.Write(" Selected")
End If
%>>未发布的</option>
<% end if %>
<option value="4" <%
if order_by="4" Then
TextName="所有顶过的"
Response.Write(" Selected")
End If
%>>顶过的</option>
<option value="5" <%
if order_by="5" Then
TextName=User_CoolName&"被评论过的"
Response.Write(" Selected")
End If
%>>评论过的</option>
</select>
<input type="hidden" name="Src_Tags" value="<% =Src_Tags %>" />
<input type="hidden" name="S_Havving" value="<% =S_Havving %>" />
</div>
</form>
<%
Response.Write("</div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""newsBox"" id=""talkNew""></div>"&vbcr)
Response.Write("<ul id=""talkList"" class=""LC"">"&vbcr)
%>
<div height="30" class="mn"><img src="Images/ico_blog.gif" width="16" height="16" /><%=TextName%>信息 </div>
<%
Set Rs = Server.CreateObject("Adodb.recordset")
Rs.CursorLocation = 3
Sql = "SELECT Liangjing_Source.*, Liangjing_User.User_CoolName,Liangjing_User.User_Address,Liangjing_User.User_Photo,Liangjing_SrcType.Type_name, Liangjing_SrcChild.Child_name " & _
"FROM Liangjing_SrcChild INNER JOIN (Liangjing_SrcType INNER JOIN (Liangjing_Source INNER JOIN Liangjing_User ON Liangjing_Source.Src_UserID = Liangjing_User.User_ID) ON Liangjing_SrcType.Type_id = Liangjing_Source.Src_TypeID) ON Liangjing_SrcChild.Child_id = Liangjing_Source.Src_ChildID " & _
"WHERE Src_TypeID="& Session("_WTypeID")
if Session("_WUserID")<>trim(User_ID) then'是否显示锁定信息
sql=sql&" and Src_UserID="&User_ID
sql = sql &" and Liangjing_Source.Src_IsOver=False"
elseif order_by = "1" and Session("_WUserID")=User_ID and Session("_WIsSupper")=true then '排序方式 所有
sql=sql&" and Src_UserID="&User_ID
Sql = Sql & " and Src_UserID="&User_ID
elseif order_by = "2" then '排序方式 已经发布的
sql = sql & " and Liangjing_Source.Src_IsOver=false"
sql= sql & " and Src_UserID="&User_ID
elseif order_by = "3" then '排序方式 未发布的
sql = sql & " and Liangjing_Source.Src_IsOver=true"
sql=sql & " and Src_UserID="&User_ID
elseif order_by = "4" then '顶过的
Sql = Sql & " and Src_ID in (Select Hit_SrcID From Liangjing_SrcHit Where Hit_UserID="&User_ID&" Order By Hit_ID Desc)"
elseif order_by = "5" then '评论过的
Sql = Sql & " and Src_ID in (Select Re_SrcID From Liangjing_SrcRevert Where Re_UserID="&User_ID&" Order By Re_ID Desc)"
end if
Sql = Sql & " Order By Src_AddDate Desc"
Rs.open Sql,conn,1,2
if not Rs.eof then
rs.pagesize = Web_ContentRecordNum
rs.absolutepage = page
Src_ID= Rs("src_id")
Type_Name = Rs("Type_Name")
Src_Type = Rs("Src_TypeID") '类型
Src_Child = Rs("Src_ChildID") '二级类别
Src_SeeNum = Rs("Src_SeeNum")
else
Response.Write("<table width='98%' border='0' align='center' cellpadding='0' cellspacing='3'>")
Response.Write("<tr><td width='100%' height='25' rowspan='2' valign='top'>呵呵... 没有找到您想找的网站资源哦！</td></tr>")
Response.Write("<table>")
end if
c_j = 0
While Not Rs.eof and c_j < rs.pagesize
c_j = c_j + 1
%>
<%
Response.Write("<li id="""&Rs("Src_UserID")&""" rel="""&Web_Name&""">"&vbcr)
Response.Write("<div class=""userPic"" style=""height:auto;"">"&vbcr)
Response.Write("<div style=""width:50px"">"&Server.HTMLEncode(Rs("User_CoolName"))&"</div>"&vbcr)
Response.Write("<div style=""width:50px""><a href=""My.asp?User_ID="&Rs("Src_UserID")&""" title="""&Server.HTMLEncode(Rs("User_CoolName"))&""">"&vbcr)
if Web_IsUploadShowImg = 1 then
if rs("src_img")<>Web_Noimage and isnull(rs("src_img"))=false then
ImgPath_2 = Wodig.Pub_SetImgWH(Rs("Src_Img"),Web_ContentImgMaxWidth,Web_ContentImgMaxHeight)
Response.Write("<img src="""&rs("User_Photo")&""" align='"&Web_ContentImgLocation&"'>")
Else
Response.Write("<img src="""&rs("User_Photo")&""" align='"&Web_ContentImgLocation&"'>")
End If
end If
Response.Write("</a></div>"&vbcr)
%>
<!--
<div align="center" id="Src_HitNum"<%=Rs("Src_ID")%>" class="ptttd1"><%=Rs("Src_HitNum")%></div>
<div align="center" id="Src_ID<%=Rs("Src_ID")%>"><%=WoDig.Is_Hit(Rs("Src_ID"))%> </div>
-->
<%
Response.Write("</div>"&vbcr)
src_Title = Rs("Src_Title")
if src_Title <> "" then
src_Title = Replace(src_Title,"'"," ")
src_Title = Server.HTMLEncode(src_Title)
end If
Response.Write("<div class=""msgBox"">"&vbcr)
Response.Write("<div class=""userName"" style=""float:none;"" rel="""&Web_Name&""">"&vbcr)
Response.Write("<strong>"&vbcr)
Response.write("<span class='green'>在"& Rs("Src_AddDate") &"发布说:</span><br />"&vbcr)
Response.Write("<span class='pl'> <a href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" class=""mn"" style=""font-weight: bold"" onMouseOut='window.status="""&Web_Name&"欢迎您！"";' onMouseOver='window.status="""&Web_Name&"：打开"&src_Title&""";return true;'>"&vbcr)
Response.Write (src_Title &"</a><br />"&vbcr)
Response.Write("</span>")
Response.Write("</strong>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""msgCnt"" style=""padding-top:16px;height: auto;"">"&vbcr)
Src_Desc = Rs("Src_Desc")
if Src_Desc <> "" then
Src_Desc = WoDig.DecodeFilter(Src_Desc,"SCRIPT,TABLE,CLASS,XML,NAMESPACE,MARQUEE,OBJECT,STYLE,EMBED,DIV,ONLOAD,ONCLICK,ONDBCLICK")
Src_Desc = WoDig.get_StrLen(Src_Desc,CInt(Web_ContentTxtNum))
src_Desc = Replace(src_Desc,"""","'")
Src_Desc = WoDig.ChangeURLTarget(Src_Desc,"_blank")
response.write(src_desc)
end If
Response.Write("</div>"&vbcr)
response.write ("<div style=""padding-top:16px;height: auto;"">"&vbcr)
Response.Write("<a href='SrcShow.asp?Src_ID="&Rs("Src_ID")&"'>(全文)</a>"&vbcr)
Response.Write(" </div>"&vbcr)
Response.Write("<div class=""pubInfo"">"&vbcr)
Response.Write("<span class=""left"">"&vbcr)
Response.Write("<img src=""Images/ico_comments.gif"" width=""16"" height=""16"" /><a href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""">"&Rs("Src_RevertNum")&vbcr)
Response.Write("条评论</a> | <img src=""Images/ico_category.gif"" width=""15"" height=""14"" />"&vbcr)
Response.Write("<span class=""green"">分类：</span><a href=""index.asp?Src_Child="&Rs("Src_ChildID")&""">"&Rs("Child_Name")&"</a> | <span class=""hot"">"&vbcr)
response.write ("<img src=""Images/icons/2.gif"" width=""16"" height=""16"" /></span><span class=""green"">"&vbcr)
Response.write (Rs("Src_SeeNum")&"位观众</span>"&vbcr)
Response.Write("| <img src=""Images/ico_category.gif"" width=""15"" height=""14"" /> <span class=""green"">Tags：</span>"&WoDig.Get_SrcTags(Rs("Src_ID"))&vbcr)
Response.Write("<div id=""Src_ID"&Rs("Src_ID")&""" align=""center"">"&WoDig.Is_Hit(Rs("Src_ID"))&"</span>"&vbcr)
Response.Write("<div class=""funBox"">"&vbcr)
Response.Write("<a href=""#"" class=""reply"">对话</a><span>|</span><a href=""#"" class=""relay"">转播</a><span>|</span><a href=""#"" class=""fav""></a>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("</li>"&vbcr)
Rs.MoveNext
Wend
%>
<table width="98%px" border="0" cellspacing="0" cellpadding="0">
<tr>
<form name="frm_Page_2" action="My.asp" mathod="post">
<td align="right">
<%
if cint(page) = 1 and Rs.pageCount > 1 then
Response.Write("上一页 ")
Response.Write("<a href='My.asp?order_by="&order_by&"&User_ID="&User_ID&"&Page="&Page+1&"'>下一页</a>")
elseif cint(page) = Rs.pageCount and Rs.pageCount > 1 then
Response.Write("<a href='My.asp?order_by="&order_by&"&User_ID="&User_ID&"&Page="&Page-1&"'>上一页</a> ")
Response.Write("下一页")
elseif cint(page) > 1 and cint(page) < rs.pageCount then
Response.Write("<a href='My.asp?order_by="&order_by&"&User_ID="&User_ID&"&Page="&Page-1&"'>上一页</a> ")
Response.Write("<a href='My.asp?order_by="&order_by&"&User_ID="&User_ID&"&Page="&Page+1&"'>下一页</a>")
else
Response.Write("上一页 ")
Response.Write("下一页")
end if
if Rs.PageCount >=10 then
Page_Temp2 = 10
else
Page_Temp2 = Rs.PageCount
end if
for i_page_3 = 1 to Page_Temp2
Selected = ""
if cstr(page) = cstr(i_page_3) then
Response.Write(" <strong>"&i_page_3&"</strong>")
else
Response.Write(" <a href='My.asp?order_by="&order_by&"&User_ID="&User_ID&"&Page="&i_page_3&"'>"&i_page_3&"</a>")
end if
next
if Rs.PageCount > 10 then
Response.Write(" <Select name='Page' onchange='javascript:frm_Page_2.submit();'>")
for i_page_2 = 11 to Rs.PageCount
Selected = ""
if cstr(page) = cstr(i_page_2) then Selected = " Selected"
Response.Write("<option value='"&i_page_2&"'" & Selected & ">"&i_page_2&"</option>")
next
Response.Write("</Select>")
Response.Write("<input type='hidden' name='User_ID' value='"&User_ID&"'/>")
Response.Write("<input type='hidden' name='Order_By' value='"&Order_By&"' />")
end if
Response.Write(" (<strong>"&page&"</strong> / <strong>"&Rs.PageCount&"</strong>)")
Rs.Close()
Set Rs = Nothing
%>
</td>
</form>
</tr>
</table>
</td></tr></table>
<%
Response.Write("</ul>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""moreFoot"" id=""moreList""><a href=""javascript:void(0)""></a><a href=""#"" class=""goTop"">返回顶部↑</a></div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""side"">"&vbcr)
Response.Write("<script type=""text/javascript"" src=""js/weiboid.js""></script>"&vbcr)
Response.Write("<div id=""UI"">"&vbcr)
Response.Write("<div class=""userDetail"">"&vbcr)
%>
<TABLE cellSpacing=0 cellPadding=2 width="95%" align=center border=0>
<TR>
<TD vAlign=top>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td colspan="2"><span class="mn">
<%=user_CoolName%>的名片：</span></td>
</tr>
<tr>
<td>
<table>
<tr>
<td>
<table border="0" align="left" cellpadding="0" cellspacing="1" bgcolor="#e1e1e1">
<tr>
<td bgcolor="#FFFFFF"><img src="<% =user_photo%>" align="left" width="60" height="60"/></td>
</tr>
</table>
</td>
<td>
名号：<%=User_CoolName%><br />
性别：<%=User_Sex%><br />
来自：<%=User_Address%><br />
邮件：保密
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
<tr>
<td colspan="2">自我介绍：<br>
<%
if User_Demo <> ""then
Response.Write(WoDig.get_StrLen(Server.HTMLEncode(User_Demo),200))
end if
%>
</td>
</tr>
<tr>
<td colspan="2">加入时间：<%=User_SignInDate%> </td>
</tr>
<tr>
<td colspan="2">连接网站：<a href="<%
If instr(User_HomeWeb,"http://")>0 Then
Response.Write User_HomeWeb
Else
Response.Write "http://"&User_HomeWeb
End If
%>">点击此处进入</a></td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<%
Response.Write("</div>"&vbcr)
Response.Write("</div>"&vbcr)
If Trim(Session("_WUserID"))="" Or Trim(Session("_WUserID"))=Null Then
Else
Response.Write("<div class=""SC""><ul class=""SM"">"&vbcr)
Response.Write("<li class=""index current"" id=""x1""><a hideFocus=""true"" href=""index.asp"">我的主页</a></li>"&vbcr)
Response.Write("</ul></div>"&vbcr)
End If
Response.Write("<div class=""SC fold"">"&vbcr)
Response.Write("<h3>网站公告<a href=""#"" title=""展开"" class=""btn"" onclick=""MI.Load('followAjax','index.asp','follow');return false""></a></h3>"&vbcr)
Response.Write("<ul class=""imgList"" id=""followAjax""></ul>"&vbcr)
Call Default.Get_Msg
Response.Write("</div>"&vbcr)
Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='images/icons/23.gif' width='16' height='16' /> 微博信息分类</h3>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
Call Default.Get_SysTags
Response.Write("</ul></div>"&vbcr)
Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='Images/icons/icon_edit.gif' width='16' height='16' />"&User_CoolName&"最新点评<a href=""#"" class=""btn"" title=""收起"" onclick=""MI.Load('hotTopic','index.asp','hot');return false""></a></h3>"&vbcr)
Response.Write("<ul id=""hotTopic"" class=""hotTopicList"">"&vbcr)
Set Rs_Revert = Server.CreateObject("Adodb.recordset")
Sql = "SELECT Top 10 Liangjing_SrcRevert.*, Liangjing_source.Src_Title,Liangjing_source.Src_AddDate,Liangjing_source.Src_ID, Liangjing_source.Src_UserID, Liangjing_source.Src_GGDesc, Liangjing_User.User_ID, Liangjing_User.User_CoolName, Liangjing_User.User_Photo " & _
"FROM (Liangjing_source INNER JOIN Liangjing_SrcRevert ON Liangjing_source.Src_ID = Liangjing_SrcRevert.Re_SrcID) INNER JOIN Liangjing_User ON Liangjing_SrcRevert.Re_UserID = Liangjing_User.User_ID Where 1=1 and Liangjing_SrcRevert.Re_UserID="&User_ID
Sql = Sql & " Order By Re_ID Desc"
Rs_Revert.Open Sql,conn,1,2
i2 = 0
while not Rs_Revert.eof and i2 < Web_RevertRecordNum
i2 = i2 + 1
%>
<li>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="35" valign="top"><table width="30" border="0" cellpadding="0" cellspacing="1" bgcolor="#e1e1e1">
<tr>
<td bgcolor="#FFFFFF"><img src="<% =Rs_Revert("User_Photo") %>" width="30" height="30" /></td>
</tr>
</table></td>
<td>
<%
Response.Write("<span class='green'><a href='My.asp?User_ID="&Rs_Revert("User_ID")&"' target='_blank'>"&Rs_Revert("User_CoolName")&"</a> 评价 <a href='Srcshow.asp?Src_ID="&Rs_Revert("Src_ID")&"' target='_blank'>"&Server.HTMLEncode(Rs_Revert("Src_Title"))&"</a>：</span> ")
if Rs_Revert("Re_Content") <> "" and isNull(Rs_Revert("Re_Content"))=false then
Response.Write( Server.HTMLEncode( left(Rs_Revert("Re_Content"),Web_RevertTxtNum) ) & ".." )
end if
Response.Write("<a href='SrcShow.asp?Src_ID="&Rs_Revert("Src_ID")&"' target='_blank'> (全文)</a>")
%>
</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="1" background="Images/dot.jpg"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
</td>
</tr>
</table>
</li>
<%
Rs_Revert.MoveNext
Wend
Rs_Revert.Close
Set Rs_Revert = Nothing
Response.Write("</ul>"&vbcr)
Response.Write("<div class=""more""><a href='isay.asp'>更多精彩点评>>></a></div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<div style=""margin-left:12px;""><img src='Images/ico_blog.gif' width='16' height='16' /><font style=""font-size:14px;font-weight:bold;"">信息标签</font> <a href='tags.asp'>标签云集>></a></div>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
Call WoDig.Get_TagsList(Web_SysTagsShowNum,Web_SysTagsColNum,Web_SysTagsDCount,Session("_WTypeID"),"SYS")
Response.Write("</ul></div>"&vbcr)
Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='Images/ico_blog.gif' width='16' height='16' />分享最多的博友</h3>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
Call Default.Get_TopUser
Response.Write("</ul></div>"&vbcr)
Response.Write("<div class=""proposal""><a href=""MessageList.Asp"">意见反馈</a> | <a href=""http://www.liangjing.org"">技术支持</a></div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("</div>"&vbcr)
Response.Write("<div id=""footRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>"&vbcr)
Set Default = Nothing
%>
<!--#include file="Include/footer.asp"-->